      * COBOL UNIT CALLING INTERFACE
      * FILE : CBUC0001[.CPY]

      * THIS COPYBOOK DESCRIBES THE INFORMATION PROVIDED TO
      * COBOLUNIT MAIN ROUTINE WHEN INVOKED FROM A USER PROGRAM
      * (TYPICALLY A PROGRAMME WHICH DESCRIBES THE STRUCTURE OF
      *  "SUITES", "TESTS" AND "ASSERTS" AND ASKS COBOLUNIT TO
      *  RUN THEM)

       01  CBU-MAIN-CALL-INTERFACE.

      * COBOLUNIT MAIN ROUTINE NAME FOR DYNAMIC INVOCATION
           05 CBU-main                     PIC X(8)   VALUE "CBUP0001".

      * INPUT DATA

      *    INFORMATION RELATIVE TO "SUITES"
           05 CBU-SUITE-NAME               PIC X(20)    VALUE SPACE.
           05 CBU-SUITE-DESCRIPTION        PIC X(100)   VALUE SPACE.
           05 CBU-SUITE-NUMBER             PIC S9(4) COMP  VALUE 0.

      *    INFORMATION RELATIVE TO "TESTS"
           05 CBU-TEST-NAME                PIC X(20)    VALUE SPACE.
           05 CBU-TEST-PROG-NAME           PIC X(8)     VALUE SPACE.
           05 CBU-TEST-DESCRIPTION         PIC X(100)   VALUE SPACE.
           
      *    INFORMATION USED TO PRINT A USER MESSAGE
           05 CBU-USER-MESSAGE             PIC X(80)    VALUE SPACE.

      * OUTPUT DATA

           05 CBU-EXECUTION-RETURN-CODE    PIC X(1)     VALUE SPACE.
              88 CBU-NO-ERROR                           VALUE SPACE.
              88 CBU-WARNING                            VALUE "W".
              88 CBU-ERROR                              VALUE "E".
              88 CBU-SEVERE                             VALUE "S".
           05 CBU-EXECUTION-MESSAGE        PIC X(100)   VALUE SPACE.
